home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / family data (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  70 lines
  1. 1 print"[147][146]"chr$(142):poke53280,7:poke53281,12
  2. 2 print"family history data sheet"
  3. 3 print"please turn on printer"
  4. 4 print"  press 'p' to begin program.":print"  press 'q' to exit to loadstar."
  5. 5 print"(use no commas or colons)"
  6. 6 print" ":poke198,0:wait198,1:getz$
  7. 7 ifz$<>"p"andz$<>"q"then5
  8. 8 ifz$= "p" goto10
  9. 9 load"hello connect",8
  10. 10 a$=chr$(14)
  11. 20 b$=chr$(129)
  12. 30 open4,4,0
  13. 40 print#4,chr$(147)
  14. 51 print#4,a$spc(6)"*family history data sheet*"
  15. 52 print#4,chr$(13)
  16. 53 print"[147]"
  17. 60 print"name:":inputna$
  18. 62 print#4,b$spc(3)"name:**"na$
  19. 63 print#4,chr$(13)
  20. 64 print"date of birth:":inputda$
  21. 66 print#4,b$spc(3)"date of birth:**"da$
  22. 100 print"place of birth:":inputpl$
  23. 111 print#4,b$spc(3)"place of birth:**"pl$
  24. 113 print"county:":inputco$
  25. 115 print#4,b$spc(3)"county:**"co$
  26. 131 print"date of death:":inputde$
  27. 133 print#4,b$spc(3)"date of death:**"de$
  28. 135 print"place of death:":inputac$
  29. 137 print#4,b$spc(3)"place of death:**"ac$
  30. 138 print"county:":inputou$
  31. 139 print#4,b$spc(3)"county:**"ou$
  32. 140 print"father's name:":inputfa$
  33. 142 print#4,b$spc(3)"father's name:**"fa$
  34. 150 print"mother's name:":inputmo$
  35. 152 print#4,b$spc(3)"mother's name:**"mo$
  36. 160 print"[147]"
  37. 170 print#4,chr$(13)
  38. 180 print"spouse's name:":inputsp$
  39. 190 print#4,b$spc(3)"spouse's name:**"sp$
  40. 195 print#4,chr$(13)
  41. 200 print"date of birth:":inputat$
  42. 220 print#4,b$spc(3)"date of birth:**"at$
  43. 230 print"place of birth:":inputac$
  44. 232 print#4,b$spc(3)"place of birth:**"ac$
  45. 251 print"county:":inputnt$
  46. 253 print#4,b$spc(3)"county:**"nt$
  47. 255 print"date of death:":inputdte$
  48. 257 print#4,b$spc(3)"date of death:**"te$
  49. 259 print"place of death:":inputce$
  50. 261 print#4,b$spc(3)"place of death:**"ce$
  51. 262 print"county:":inputty$
  52. 264 print#4,b$spc(3)"county:**"ty$
  53. 270 print"father's name:":inputer$
  54. 272 print#4,b$spc(3)"father's name:**"er$
  55. 274 print"mother's name:":inputre$
  56. 275 print#4,b$spc(3)"mother's name:**"re$
  57. 290 print"[147]"
  58. 310 print"child/children:(will list 6)"
  59. 311 print"when done listing hit run/stop restore"
  60. 320 print#4,a$spc(15)"children:[211][211]"
  61. 330 print#4,chr$(13)
  62. 340 forx=0to5
  63. 350 print"name:":inputdl$
  64. 352 print#4,b$spc(3)"name:[211][211]"dl$
  65. 360 print"date of birth:":inputbi$
  66. 380 print#4,b$spc(3)"date of birth:[211][211]"bi$
  67. 381 print#4,chr$(13)
  68. 390 next
  69. 400 close4,4,0:run
  70.